home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / progrmng / exmpldrw.sit / For THINK Pascal 3.0 / THINK Diffs / UStream.inc1.p.Diff < prev    next >
Encoding:
Text File  |  1990-07-02  |  2.8 KB  |  85 lines  |  [TEXT/MPS ]
  1. File #1: Big Block:Copy of 21-25. ExampleDraw:UStream.inc1.p
  2. File #2: Big Block:21-25. ExampleDraw:UStream.inc1.p
  3.  
  4. Nonmatching lines (File "Big Block:Copy of 21-25. ExampleDraw:UStream.inc1.p"; Line 216:219; File "Big Block:21-25. ExampleDraw:UStream.inc1.p"; Line 216:217)
  5.  216        VAR anObject: TObject;
  6.  217    BEGIN
  7.  218        SELF.ReadObject(anObject, known);           { Create an uninitialized object. }
  8.  219        data := TStreamObject(anObject);
  9.  
  10.  216    BEGIN
  11.  217        SELF.ReadObject(data, known);           { Create an uninitialized object. }
  12.  
  13.  
  14. Extra lines in 1st before 534 in 2nd (File "Big Block:Copy of 21-25. ExampleDraw:UStream.inc1.p"; Line 536; File "Big Block:21-25. ExampleDraw:UStream.inc1.p"; Line ╞534)
  15.  536        fSize := newSize;
  16.  
  17.  
  18. Nonmatching lines (File "Big Block:Copy of 21-25. ExampleDraw:UStream.inc1.p"; Line 604:606; File "Big Block:21-25. ExampleDraw:UStream.inc1.p"; Line 601:603)
  19.  604    FUNCTION  TCountingStream.GetPosition: LONGINT; OVERRIDE;
  20.  605    BEGIN
  21.  606        GetPosition := fPosition;
  22.  
  23.  601    FUNCTION  TCountingStream.GetSize: LONGINT; OVERRIDE;
  24.  602    BEGIN
  25.  603        GetSize := fPosition;
  26.  
  27.  
  28. Nonmatching lines (File "Big Block:Copy of 21-25. ExampleDraw:UStream.inc1.p"; Line 610:613; File "Big Block:21-25. ExampleDraw:UStream.inc1.p"; Line 607:612)
  29.  610    {$S StreamUtil}
  30.  611    FUNCTION  TCountingStream.GetSize: LONGINT; OVERRIDE;
  31.  612    BEGIN
  32.  613        GetSize := fSize;
  33.  
  34.  607    {$S StreamCreate}
  35.  608    PROCEDURE TCountingStream.ICountingStream;
  36.  609    BEGIN
  37.  610        SELF.IStream;
  38.  611        
  39.  612        fPosition := 0;
  40.  
  41.  
  42. Extra lines in 1st before 616 in 2nd (File "Big Block:Copy of 21-25. ExampleDraw:UStream.inc1.p"; Line 617:655; File "Big Block:21-25. ExampleDraw:UStream.inc1.p"; Line ╞616)
  43.  617    {$S StreamCreate}
  44.  618    PROCEDURE TCountingStream.ICountingStream;
  45.  619    BEGIN
  46.  620        SELF.IStream;
  47.  621        
  48.  622        fPosition := 0;
  49.  623        fSize := 0;
  50.  624    END;
  51.  625    
  52.  626    
  53.  627    {$S StreamUtil}
  54.  628    PROCEDURE TCountingStream.SetPosition(newPosition: LONGINT); OVERRIDE;
  55.  629        VAR err:    OSErr;
  56.  630    BEGIN
  57.  631        IF newPosition < 0 THEN                 { Same error returned by File Manager. }
  58.  632            FailOSErr(posErr)
  59.  633            
  60.  634        ELSE IF newPosition > fSize THEN        { Hit the end of the stream. }
  61.  635        BEGIN
  62.  636            newPosition := fSize;               { We still want to position to end of the stream. }
  63.  637            err := eofErr;
  64.  638        END
  65.  639        ELSE
  66.  640            err := noErr;
  67.  641            
  68.  642        fPosition := newPosition;
  69.  643        FailOSErr(err);
  70.  644    END;
  71.  645    
  72.  646    
  73.  647    {$S StreamUtil}
  74.  648    PROCEDURE TCountingStream.SetSize(newSize: LONGINT); OVERRIDE;
  75.  649    BEGIN
  76.  650        IF newSize < fPosition THEN     { If we shrunk the size, then we have to adjust the position. }
  77.  651            fPosition := newSize;
  78.  652        fSize := newSize;
  79.  653    END;
  80.  654    
  81.  655    
  82.  
  83.  
  84. *** EOF on both files at the same time ***
  85.